home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files For Lab 8 / Background Process next >
Text File  |  1995-07-14  |  2KB  |  118 lines
  1. ; This file contains a copy of the "background process" portion
  2. ; of the file "EchoNums and Background Process".  You can add
  3. ; foreground processing of user inputs in the form of your own
  4. ; interrupt handler.
  5.  
  6.  
  7. @200  ; Load the following program starting at location 200.
  8.  
  9. backgrnd:           ; The "background process" starts here.
  10.  
  11.        lod-c 3
  12.        sto N1
  13.        lod-c 1
  14.        sto ct1
  15.  
  16. copy:  lod ct1
  17.        sto ct2
  18.        sto ct
  19.        lod-c N1
  20.        sto src
  21.        lod-c N2
  22.        sto dest
  23. c1:    lod-i src
  24.        sto-i dest
  25.        lod ct
  26.        dec
  27.        jmz sum
  28.        sto ct
  29.        lod src
  30.        dec
  31.        sto src
  32.        lod dest
  33.        dec
  34.        sto dest
  35.        jmp c1
  36.  
  37. sum:   lod ct2
  38.        sto ct
  39.        lod-c N2
  40.        sto src
  41.        lod-c N1
  42.        sto dest
  43.        lod-c 0
  44.        sto carryQ
  45. s1:    lod-i dest
  46.        add-i src
  47.        sto-i dest
  48.        jmf cr1
  49. s2:    lod-i dest
  50.        add-i src
  51.        sto-i dest
  52.        jmf cr2
  53. s3:    lod ct
  54.        dec
  55.        jmz copy
  56.        sto ct
  57.        lod src
  58.        dec
  59.        sto src
  60.        lod dest
  61.        dec
  62.        sto dest
  63.        jmp s1
  64.  
  65. cr1:   lod-c s2
  66.        sto return
  67.        jmp add1
  68.  
  69. cr2:   lod-c s3
  70.        sto return
  71.        jmp add1
  72.  
  73. add1:  lod ct
  74.        sto aCt
  75.        lod dest
  76.        sto aDest
  77. a1:    lod aDest
  78.        dec
  79.        sto aDest
  80.        lod aCt
  81.        dec
  82.        sto aCt
  83.        jmz advnc
  84.        lod-i aDest
  85.        add-c 1
  86.        sto-i aDest
  87.        jmf a1
  88.        jmp-i return
  89. advnc: lod carryQ
  90.        jmz adv1
  91.        lod-i aDest
  92.        add-c 1
  93.        sto-i aDest
  94.        jmp-i return
  95. adv1:  lod ct1
  96.        inc
  97.        sto ct1
  98.        lod-c 1
  99.        sto-i aDest
  100.        lod-c 1
  101.        sto carryQ
  102.        jmp-i return
  103.  
  104. return:data
  105. ct1:   data
  106. ct2:   data
  107. ct:    data
  108. src:   data
  109. dest:  data
  110. aCt:   data
  111. aDest: data
  112. carryQ:data
  113.  
  114. @700
  115. N1: data
  116. @1000
  117. N2: data
  118.